home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / boot 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  670 b   |  19 lines
  1. 10 pw$="kathleen" :rem password
  2. 15 fi$="quantum"  :rem filename to load
  3. 20 if a=1 then new
  4. 30 input"[147]security code";c$
  5. 40 ifc$=pw$thena=1:load fi$,8,1
  6. 50 new
  7. 60 :
  8. 70 :
  9. 100 :line # -- what it does
  10. 105 :----------------------------------
  11. 110 :-10-->contains the password to be      :      entered
  12. 120 :-15-->contains the filename to be      :      loaded
  13. 130 :-20-->clears this program from         :      memory after loading
  14. 140 :-30-->prompts the user to enter the    :      password
  15. 150 :-40-->if what the user entered (c$)    :      matches the password (pw$),
  16. 160 :      then load the program (fi$)
  17. 170 :-50-->the user did not enter the       :      correct password, so this
  18. 180 :      program is destroyed.
  19.